integer[] arr <- array {5,2,7,1,2};
integer[[string]] mapIntStr <- map {5->"five", 1->"one", 3->"three"};

integer index;
integer value;

inprint("Array has: ");
index <- 0;
value <- 0;
foreach (index value in arr) {
	inprint(value); inprint(",");
}
print("");
inprint("Length is: ");
print(length(arr));
print("Sorting array in ascending order...");
arr <- sort(arr, TRUE);       /* Sort ascending order */
inprint("**Sorted array is now: ");
index <- 0;
value <- 0;
foreach (index value in arr) {
	inprint(value); inprint(",");
}
print("");

/* We know this function works
print("Randomizing Array");
arr <- randomize(arr);
index <- 0;
value <- 0;
foreach (index value in arr) {
	inprint(value); inprint(",");
}
print("");
*/

/**** MAPS ****/
integer[] keys <- getKeys(mapIntStr);
string[] values <- getValues(mapIntStr);
print("Displaying keys in map:");
index <- 0;
value <- 0;
foreach (index value in keys) {
	inprint(value); inprint(",");
}
print("");
print("Displaying values in map:");
index <- 0;
value <- 0;
foreach (index value in values) {
	inprint(value); inprint(",");
}
print("");
